﻿Imports CrystalDecisions.Shared
Public Class frmVisorBusARangoFecha
    Dim idDV As New ParameterDiscreteValue
    Dim idDV2 As New ParameterDiscreteValue
    Public vidPago As String
    Public vidPago2 As String
    Private Sub frmBusDosValores_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rptbus As New rptBusPagoARangoFecha
        idDV.Value = vidPago
        idDV2.Value = vidPago2
        rptbus.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptbus.SetParameterValue("f1", idDV)
        rptbus.SetParameterValue("f2", idDV2)

        crvBusqueda.ReportSource = rptbus
    End Sub
End Class